(fn tree-find (v x &key (test #'eql))
  (| (funcall test v x)
     (& (cons? x)
        (@ (i x)
          (& (tree-find v i)
             (return t))))))
